C  SUBRS.  BRKSLR

	SUBROUTINE BRKSLR
	COMMON R2,JA,CENTR,J2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RB,
	1 K,KQ,TWICE,RST7,RX,RXX,RTILT,RC,RZ,RX3,J3,J4,
	1 J5,J6,J7,J8,J9,J10,J11,JQ(3),L4,L5,L6,L7,L8,RJ
	1 /STF/RSTFAC(0/7),RSTJ2 /XRN/RN(2880),RR3,RR4,RR5,RR6,RR7,RR8
	1 ,RZZ,RX6,JXA

C J8=7=SLUR WITH VERT. BRKTS.  =8=BRKT ON LEFT ONLY. =9=ON RIGHT ONLY.
C	L6=J6
C	L7=J7
	L8=J8
	RR3=R3
	RR4=R4
	RR5=R5
	RR6=R6
	RX6=R6
CC7	IF(JA.NE.5)GO TO 6
CC	RX6=R6+1
CC	JXA=ROFF(RHORZ(RX6))
CC	RX6=JXA
C FOR BRACKET TO RIGHT OF SLUR
CC	GO TO 5
CC6	RX6=RX3+5.96*RSTJ2
C USE R6 FOR BRKT ON SLUR, R3 FOR BRKT ON DOT.
CC	RR5=R4
5	RR7=R7
	RR8=R8
	JXA=JA
	RC=CENTR
C NOW ALL PARAMS ARE SAVED
	RZ=.5*RSTJ2
	RZZ=RZ
CC	R3=RX3
C RX3 IS UN-CONVERTED HORIZ. POS.
	IF(R7.GT.0)GO TO 4
	RZ=-RZ
	RZZ=-RZZ*5.
C SHIFT OF BRKT UP OR DOWN
4	R4=R4+RZZ   
	J5=104
C BRKT NUM.
	JA=3
	R8=0
	J8=0
	J7=0
3	IF(L8.EQ.9)GO TO 1
C NOW MAKE LFT. BRKT
	R6=0
	R7=0
	CALL CENTX
C SET VERTICAL POS. BASED ON R4
	CALL CLEFS
	IF(L8.EQ.8)GO TO 2
C NOW MAKE RIGHT BRKT.
1	R6=-1
	R7=1
	R3=RX6+1
	J3=ROFF(RHORZ(R3))
	R3=J3
CC	R3=R3+RX6
	R4=RR5+RZZ
	CALL CLEFS
2	IF(JXA.EQ.1)GO TO 10
	J8=-1
	R3=RR3
	RZ=RZ*3. 
C RESET HEIGHT
	R4=RR4+RZ
	R5=R5+RZ
	R6=RR6
	R7=RR7
	CALL CENTX
10	END